home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DBASE_UT / TPDB335 / STATUS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-11-26  |  2KB  |  47 lines
  1. {$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520,0,655360}
  3.  
  4. program Status;
  5.                            (***********************************)
  6.                            (*               TPDB              *)
  7.                            (***********************************)
  8.                            (*         Object -Oriented        *)
  9.                            (*    Borland/Turbo Pascal Units   *)
  10.                            (*    for Accessing dBASE III      *)
  11.                            (*             files.              *)
  12.                            (*      Copyright 1988 - 1993      *)
  13.                            (*          Brian Corll            *)
  14.                            (*       All Rights Reserved       *)
  15.                            (***********************************)
  16.                            (*            FREEWARE             *)
  17.                            (***********************************)
  18.                            (*     dBASE is a registered       *)
  19.                            (* trademark of Borland Int. Inc.  *)
  20.                            (*   Version 3.35  November, 1993  *)
  21.                            (***********************************)
  22.                            (*   Portions Copyright 1984,1991  *)
  23.                            (*    Borland International Corp.  *)
  24.                            (***********************************)
  25.  
  26.  
  27. uses
  28.     Crt, Dos, TPDB, TPDBScrn;
  29.  
  30. var
  31.     CurrFile:^DBF;
  32.  
  33. begin
  34.     CursorOff;
  35.     if ParamCount = 0 then begin
  36.         ClrScr;
  37.         Beep;
  38.         Flash(1, 1, LightRed + BlackBG, 'Syntax: STATUS filename.ext');
  39.         CursorOn;
  40.         Halt(1);
  41.     end;
  42.     New(CurrFile, Init(ParamStr(1)));
  43.     SetDBColor(LightCyan, Black);
  44.     CurrFile^.ShowStatus;
  45.     CurrFile^.Done;
  46. end.
  47.